perl -e "while(<>){s/\n//g;print;}" <DNA1 >clear1.txt
perl -e "while(<>){s/\n//g;print;}" <DNA2 >clear2.txt
